home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
vbmidi
/
vb_about.frm
< prev
next >
Wrap
Text File
|
1995-01-06
|
6KB
|
190 lines
VERSION 2.00
Begin Form frmAbout
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
ClientHeight = 3165
ClientLeft = 2085
ClientTop = 2895
ClientWidth = 5355
ControlBox = 0 'False
Height = 3570
Left = 2025
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3165
ScaleWidth = 5355
Top = 2550
Width = 5475
Begin SSPanel Z
AutoSize = 3 'AutoSize Child To Panel
BackColor = &H00C0C0C0&
BevelInner = 1 'Inset
BevelOuter = 0 'None
BevelWidth = 3
BorderWidth = 0
Font3D = 3 'Inset w/light shading
ForeColor = &H00FF0000&
Height = 765
Index = 8
Left = 1920
TabIndex = 6
Top = 2250
Width = 1485
Begin SSCommand cmdOk
Caption = "&Ok"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 675
Left = 45
TabIndex = 7
Top = 45
Width = 1395
End
End
Begin SSPanel Z
BackColor = &H00C0C0C0&
BevelInner = 2 'Raised
BevelOuter = 1 'Inset
BorderWidth = 1
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 795
Index = 2
Left = 210
TabIndex = 1
Top = 1350
Width = 4995
Begin SSPanel Z
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
BevelWidth = 0
BorderWidth = 0
Caption = "by Zane Thomas"
Font3D = 3 'Inset w/light shading
ForeColor = &H00004080&
Height = 195
Index = 6
Left = 3000
TabIndex = 5
Top = 420
Width = 1485
End
Begin SSPanel Z
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
BevelWidth = 0
BorderWidth = 0
Caption = "VISUAL BASIC HOW-TO"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00004080&
Height = 240
Index = 5
Left = 300
TabIndex = 4
Top = 395
Width = 2625
End
Begin SSPanel Z
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
BevelWidth = 0
BorderWidth = 0
Font3D = 3 'Inset w/light shading
ForeColor = &H00FF0000&
Height = 195
Index = 4
Left = 150
TabIndex = 3
Top = 360
Width = 2805
End
Begin SSPanel Z
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
BevelWidth = 0
BorderWidth = 0
Caption = "MSGHOOK.VBX is a free control included in the book:"
Font3D = 3 'Inset w/light shading
ForeColor = &H00004080&
Height = 195
Index = 3
Left = 150
TabIndex = 2
Top = 150
Width = 4785
End
End
Begin SSPanel Z
Alignment = 6 'Center - TOP
BackColor = &H00C0C0C0&
BevelInner = 2 'Raised
BevelWidth = 2
BorderWidth = 2
Caption = "Visual Basic Midi"
Font3D = 2 'Raised w/heavy shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 1095
Index = 0
Left = 180
TabIndex = 0
Top = 150
Width = 5025
Begin SSPanel Z
BackColor = &H00C0C0C0&
BevelOuter = 0 'None
BevelWidth = 0
BorderWidth = 0
Caption = "by Josep Mainat (100414,1026)"
Font3D = 3 'Inset w/light shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00FF0000&
Height = 270
Index = 1
Left = 120
TabIndex = 8
Top = 630
Width = 4755
End
End
End
Option Explicit
Sub cmdOk_Click ()
Hide
End Sub
Sub Form_Load ()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
End Sub